object fmUserGroup: TfmUserGroup
  Left = 430
  Top = 175
  BorderStyle = bsNone
  Caption = 'Users Account'
  ClientHeight = 442
  ClientWidth = 762
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnForm: TPanel
    Left = 0
    Top = 0
    Width = 762
    Height = 442
    Align = alClient
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Top = 51
      Width = 760
      Height = 390
      Align = alClient
      TabOrder = 0
      object dgDetail: TDBGrid
        Left = 1
        Top = 117
        Width = 418
        Height = 272
        TabStop = False
        Align = alLeft
        DataSource = dsUsers
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'id'
            Title.Caption = 'Code'
            Width = 79
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'loginname'
            Title.Caption = 'Login Name'
            Width = 132
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = 'Name'
            Width = 154
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 1
        Top = 1
        Width = 758
        Height = 116
        Align = alTop
        TabOrder = 1
        object GroupBox1: TGroupBox
          Left = 1
          Top = 3
          Width = 678
          Height = 108
          TabOrder = 0
          object lblCode: TLabel
            Left = 8
            Top = 24
            Width = 25
            Height = 13
            Caption = 'Code'
          end
          object lblLogin: TLabel
            Left = 161
            Top = 24
            Width = 57
            Height = 13
            Caption = 'Login Name'
          end
          object lblName: TLabel
            Left = 8
            Top = 50
            Width = 28
            Height = 13
            Caption = 'Name'
          end
          object lblEmp: TLabel
            Left = 8
            Top = 76
            Width = 38
            Height = 13
            Caption = 'Emp. ID'
          end
          object lblRem: TLabel
            Left = 177
            Top = 75
            Width = 37
            Height = 13
            Caption = 'Remark'
          end
          object sbDocno: TSpeedButton
            Left = 131
            Top = 17
            Width = 23
            Height = 22
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
              333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
              0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
              07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
              07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
              0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
              33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
              B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
              3BB33773333773333773B333333B3333333B7333333733333337}
            NumGlyphs = 2
            Visible = False
            OnClick = sbDocnoClick
          end
          object edID: TDBEdit
            Left = 56
            Top = 17
            Width = 73
            Height = 21
            TabStop = False
            Color = clBtnFace
            DataField = 'ID'
            DataSource = dsUsers
            ReadOnly = True
            TabOrder = 0
          end
          object edLoginname: TDBEdit
            Left = 226
            Top = 17
            Width = 112
            Height = 21
            CharCase = ecUpperCase
            DataField = 'LOGINNAME'
            DataSource = dsUsers
            TabOrder = 1
            OnEnter = edLoginnameEnter
            OnExit = edLoginnameExit
          end
          object edName: TDBEdit
            Left = 56
            Top = 43
            Width = 217
            Height = 21
            DataField = 'NAME'
            DataSource = dsUsers
            TabOrder = 2
            OnEnter = edLoginnameEnter
            OnExit = edLoginnameExit
          end
          object DBEdit13: TDBEdit
            Left = 71
            Top = 70
            Width = 97
            Height = 21
            DataField = 'EMPID'
            DataSource = dsUsers
            TabOrder = 3
            OnEnter = edLoginnameEnter
            OnExit = edLoginnameExit
          end
          object DBEdit14: TDBEdit
            Left = 223
            Top = 70
            Width = 379
            Height = 21
            DataField = 'REMARK'
            DataSource = dsUsers
            TabOrder = 4
            OnEnter = edLoginnameEnter
            OnExit = edLoginnameExit
          end
          object btSetPwd: TButton
            Left = 275
            Top = 42
            Width = 87
            Height = 25
            Caption = 'Set Password'
            TabOrder = 6
            OnClick = btSetPwdClick
          end
          object DBEdit3: TDBEdit
            Left = 363
            Top = 44
            Width = 102
            Height = 21
            TabStop = False
            Color = clBtnFace
            DataField = 'PWD'
            DataSource = dsUsers
            PasswordChar = '*'
            ReadOnly = True
            TabOrder = 7
          end
          object chkAdmin: TDBCheckBox
            Left = 474
            Top = 46
            Width = 85
            Height = 17
            Caption = 'Administrator'
            DataField = 'posit'
            DataSource = dsUsers
            TabOrder = 5
            ValueChecked = 'A'
            ValueUnchecked = 'B'
          end
          object DBCheckBox1: TDBCheckBox
            Left = 576
            Top = 46
            Width = 97
            Height = 17
            Caption = 'Public Folder'
            DataField = 'publicadm'
            DataSource = dsUsers
            TabOrder = 8
            ValueChecked = '1'
            ValueUnchecked = '0'
            Visible = False
          end
        end
      end
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 760
      Height = 50
      Align = alTop
      TabOrder = 1
      object sbFirst: TSpeedButton
        Left = 8
        Top = 2
        Width = 59
        Height = 44
        Hint = 'First Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333FFFF33333FFFF3333333333333333333FFFF33333FFFF333C773333337
          7C3337333F333FF333F333C7733337CCCC3337333F3FF33333F333C77337CCCC
          CC3337333FF3333333F333C777CCCCCCCC3337333333333333F333C777CCCCCC
          CC3337333333333333F333C77337CCCCCC3337333373333333F333C7733337CC
          CC3337333F37733333F333C7733333377C3337333F33377333F3333333333333
          3333377773333337773333333333333333333777733333377733333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbFirstClick
      end
      object sbPrior: TSpeedButton
        Left = 69
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Prior Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333333333333FFFFF333333333333333333333333333FFFFF333333333337
          7C3333333333FFF333FF3333333377CCCC3333333FFF333333FF333337CCCCCC
          CC3333FFF333333333FF337CCCCCCCCCCC3377333333333333FF337CCCCCCCCC
          CC3377333333333333FF333337CCCCCCCC3333777333333333FF3333333377CC
          CC3333333777333333FF3333333333377C3333333333777333FF333333333333
          3333333333333337773333333333333333333333333333377733333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbPriorClick
      end
      object sbNext: TSpeedButton
        Left = 130
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Next Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333FFF33333333333333333333333333333FFF3333333333333C773333333
          333377333FFF3333333333CCCC773333333377333333FFF3333333CCCCCCCC73
          333377333333333FFF3333CCCCCCCCCCC73377333333333333FF33CCCCCCCCCC
          C73377333333333333FF33CCCCCCCC733333773333333337773333CCCC773333
          3333773333337773333333C77333333333337733377733333333333333333333
          3333777773333333333333333333333333337777733333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbNextClick
      end
      object sbLast: TSpeedButton
        Left = 191
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Last Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333FFF333333FFFF3333333333333333333FFF333333FFFF333C773333337
          7C3337333FF3337333F333CCCC7333377C333733333FF37333F333CCCCCC7337
          7C33373333333F3333F333CCCCCCCC777C3337333333333333F333CCCCCCCC77
          7C3337333333333333F333CCCCCC73377C3337333333377333F333CCCC733337
          7C3337333337737333F333C7733333377C3337333773337333F3333333333333
          3333377773333377773333333333333333333777733333777733333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbLastClick
      end
      object sbInsert: TSpeedButton
        Left = 251
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Append Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333333333333333333333FFFF333333333333CCC333
          3333333337333F333333333333CCC3333333333337333F333333333333CCC333
          3333333337333F333333333333CCC333333333FFF3333FFFFF3333CCCCCCCCCC
          C3333733333333333F3333CCCCCCCCCCC3333733333333333F3333CCCCCCCCCC
          C3333733333333333F3333CCCCCCCCCCC3333733333333333F33333333CCC333
          33333777773333777333333333CCC3333333333337333F333333333333CCC333
          3333333337333F333333333333CCC3333333333337333F333333333333333333
          3333333337777333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbInsertClick
      end
      object sbDelete: TSpeedButton
        Left = 312
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Delete Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          33333333333333333333333333333333333337FFFFFFFFFFFFF333CCCCCCCCCC
          CC3337333333333333F333CCCCCCCCCCCC3337333333333333F333CCCCCCCCCC
          CC3337333333333333F333CCCCCCCCCCCC3337333333333333F3333333333333
          333337777777777777F333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbDeleteClick
      end
      object sbEdit: TSpeedButton
        Left = 373
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Edit Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333FFFFFFFFFFFFF333CCCCCCCCCCCC3337333333333333F3333CCCCCCCCC
          C3333373333333333F3333333CCCCCC3333333377333333FF33333333CCCCCC3
          333333377333333FF333333333CCCC3333333333373333F333333333333CC333
          3333333333733F33333333333333333333333333333773333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbEditClick
      end
      object sbPost: TSpeedButton
        Left = 434
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Save Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFF0000000000000FFF8888888888888FF0EE00000088
          0E0FF8EE888888FFFE8FF0EE000000880E0FF8EE888888FFFE8FF0EE00000088
          0E0FF8EE888888FFFE8FF0EE000000000E0FF8EE888888888E8FF0EEEEEEEEEE
          EE0FF8EEEEEEEEEEEE8FF0EE00000000EE0FF8EE88888888EE8FF0E088888888
          0E0FF8E8333333338E8FF0E0888888880E0FF8E8388888838E8FF0E088888888
          0E0FF8E8388888838E8FF0E0888888880E0FF8E8388888838E8FF0E088888888
          000FF8E838888883888FF0E0888888880F0FF8E833333333808FF00000000000
          000FF88888888888888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbPostClick
      end
      object sbCancel: TSpeedButton
        Left = 496
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Cancel Record'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          333333FFF33333FFF33333CCC33333CCC33337333F3337333F3333CCC33333CC
          C33337333F3337333F3333CCCC333CCCC333373333F373333F333333CCC3CCCC
          3333337733373333F33333333CCCCC3333333333733333FF3333333333CCC333
          3333333337333F333333333333CCC3333333333337333F33333333333CCCCC33
          33333333733333FF33333333CCC3CCCC3333337733373333F33333CCCC333CCC
          C333373333F373333F3333CCC33333CCC33337333F3337333F3333CCC33333CC
          C33337333F3337333F3333333333333333333377733333777333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbCancelClick
      end
      object sbExit: TSpeedButton
        Left = 573
        Top = 2
        Width = 59
        Height = 44
        Hint = 'Close Form'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
          03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
          0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
          0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
          0333337F777FFFFF7F3333000000000003333377777777777333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = sbExitClick
      end
    end
  end
  object qrUsers: TZQuery
    Connection = dm.cnDB
    CachedUpdates = True
    BeforePost = qrUsersBeforePost
    OnNewRecord = qrUsersNewRecord
    SQL.Strings = (
      'select * from users ')
    Params = <>
    Left = 350
    Top = 6
    object qrUsersid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qrUsersloginname: TStringField
      FieldName = 'loginname'
    end
    object qrUserspwd: TStringField
      FieldName = 'pwd'
    end
    object qrUsersname: TStringField
      FieldName = 'name'
      Size = 50
    end
    object qrUsersdept: TStringField
      FieldName = 'dept'
      Size = 3
    end
    object qrUsersposit: TStringField
      FieldName = 'posit'
      Size = 3
    end
    object qrUsersempid: TStringField
      FieldName = 'empid'
      Size = 10
    end
    object qrUsersremark: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object qrUsersright_: TStringField
      FieldName = 'right_'
      Size = 10
    end
    object qrUserspublicadm: TIntegerField
      FieldName = 'publicadm'
    end
  end
  object dsUsers: TDataSource
    DataSet = qrUsers
    OnDataChange = dsUsersDataChange
    Left = 381
    Top = 6
  end
  object qrCnt_Id: TZQuery
    Connection = dm.cnDB
    Params = <>
    Left = 106
    Top = 46
  end
  object qrLang: TZReadOnlyQuery
    Connection = dm.cnDB
    SQL.Strings = (
      'select fd, messag from messageshow'
      'where (tb='#39'US'#39')and(lang=:lang)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'lang'
        ParamType = ptUnknown
      end>
    Left = 320
    Top = 195
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'lang'
        ParamType = ptUnknown
      end>
  end
  object qrAssAuthorize: TZQuery
    Connection = dm.cnDB
    SQL.Strings = (
      
        'select * from authorize where (loginname=:loginname)and(rightsgr' +
        'p=:rightsgrp)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'loginname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'rightsgrp'
        ParamType = ptUnknown
      end>
    Left = 359
    Top = 255
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'loginname'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'rightsgrp'
        ParamType = ptUnknown
      end>
  end
  object qrGroup: TZQuery
    Connection = dm.cnDB
    CachedUpdates = True
    SQL.Strings = (
      'select * from depart order by name')
    Params = <>
    Left = 63
    Top = 117
  end
  object qrUsersNew: TZQuery
    Connection = dm.cnDB
    CachedUpdates = True
    SQL.Strings = (
      'select * from users where dept=:dept order by loginname')
    Params = <
      item
        DataType = ftUnknown
        Name = 'dept'
        ParamType = ptUnknown
      end>
    Left = 107
    Top = 120
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dept'
        ParamType = ptUnknown
      end>
  end
  object qrChk_Usr: TZQuery
    Connection = dm.cnDB
    SQL.Strings = (
      'select id from users where dept=:dept')
    Params = <
      item
        DataType = ftUnknown
        Name = 'dept'
        ParamType = ptUnknown
      end>
    Left = 75
    Top = 204
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dept'
        ParamType = ptUnknown
      end>
  end
end
